home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / dev / gui / gui4cli.lha / Gui4Cli / Tools / GCMenu.g < prev    next >
Text File  |  1999-04-21  |  2KB  |  81 lines
  1. G4C
  2.  
  3. ; -----------------------------------------------------------------
  4. ; A general purpose menu which can be shared among guis
  5. ; -----------------------------------------------------------------
  6.  
  7. xMenu Project 'New Gui..' '' N          ; new gui
  8.     guiload guis:tools/guiedit.gc
  9.     gosub guiedit.gc newfile
  10.     if $$ret.0 = 1                          ; a gui was chosen
  11.        guiopen guiedit.gc
  12.     endif
  13.  
  14. xmenu Project Gui.. '' ''               ; use the status requester
  15.     status
  16.  
  17. xMenu Project BARLABEL '' ''
  18.  
  19. xMenu Project #guis:Gui4Cli '' ''
  20.     ezreq 'Gui4Cli\n(c)1995-98 D.Keletsekis\ndck@hol.gr' 'OK' ''
  21.  
  22. xMenu Project 'Quit Gui4Cli' '' ''
  23.     quit
  24.  
  25. ; --------------- guis menu
  26.  
  27.  
  28. xMenu Guis "File Manager   " '' ''
  29.     guiload guis:dir/dir.gc
  30.     guiopen dir.gc
  31.  
  32. xMenu Guis FSearch.gc '' ''
  33.     guiload guis:g4c/fsearch/fsearch.gc Sys:
  34.  
  35. xMenu Guis Rep.gc '' ''
  36.     guiload guis:g4c/rep.gc
  37.  
  38. xMenu Guis CedBar.gc '' ''
  39.     guiload guis:g4c/ced/cedbar.gc
  40.  
  41. xMenu Guis "BARLABEL" '' ''
  42.  
  43. xMenu Guis Demo '' ''
  44.     guiload guis:demo.gc
  45.     guiopen demo.gc
  46.  
  47. xMenu Guis Tutorials '' ''
  48.     guiload guis:docs/tutorials.gc
  49.     guiopen tutorials.gc
  50.  
  51. ; --------------- Help menu
  52.  
  53. xMenu Help "Gui4Cli Guide " '' ''
  54.     run 'multiview guis:docs/gui4cli.guide'
  55.  
  56. xMenu Help "BARLABEL" '' ''
  57.  
  58. xMenu Help "Gui4Cli ReadMe" '' ''
  59.     guiload guis:tools/read.gc guis:readme.now
  60.  
  61. xMenu Help "Command List" '' ''
  62.     guiload guis:tools/read.gc guis:docs/PrintMe
  63.  
  64. xMenu Help "Version Changes" '' ''
  65.     guiload guis:tools/read.gc guis:docs/Changes
  66.  
  67. xMenu Help "BARLABEL" '' ''
  68.  
  69. xMenu Help "CLI Commands Guide  " '' ''
  70.     run 'multiview guis:docs/CLICommands.guide'
  71.  
  72. xMenu Help "Routines Guide" '' ''
  73.     run 'multiview guis:docs/Routines.guide'
  74.  
  75. xMenu Help "BARLABEL" '' ''
  76.  
  77. xMenu Help Tutorials.. '' ''
  78.     guiload guis:docs/tutorials.gc
  79.     guiopen tutorials.gc
  80.  
  81.